﻿Public Class TrayForm

    Private Sub QuickLauncherToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuickLauncherToolStripMenuItem.Click
        MainForm.Show()
        MainForm.Activate()
        MainForm.TopMost = True
    End Sub

    Private Sub OptionsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OptionsToolStripMenuItem.Click
        OptionForm.Show()
        OptionForm.Activate()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub

    Private Sub TrayForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ContextMenuStrip1.Show(Cursor.Position)
        Me.Left = ContextMenuStrip1.Left + 1
        Me.Top = ContextMenuStrip1.Top + 1
    End Sub

    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
        AboutForm.Show()
        AboutForm.Activate()
        AboutForm.TopMost = True
    End Sub
End Class